home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)G / (A)G10.ADF / BasicTimers / timer5sec (.txt) < prev    next >
AmigaBASIC Source Code  |  1989-03-16  |  554b  |  27 lines
  1. '60 SECOND TIMER
  2. '5 x 12 sec intervals total 62 +- sec
  3. CLS
  4. PRINT  "Time","5sec","1 min","PulsePerSec."
  5. PRINT TIME$
  6. STRT:
  7. J$ =  RIGHT$ (TIME$,1)
  8. IF J$ = "0" OR J$ = "5" THEN CN
  9. GOTO STRT
  10. CN:
  11. PRINT TIME$
  12.  
  13. FOR t=1 TO 12
  14.  
  15. FOR d = 1 TO 3200
  16. b=b-STRIG(2)
  17. NEXT d
  18.  
  19. PRINT TIME$,b,b*12"RPM",b/5 "Hz"
  20. m=m+b
  21. b = 0
  22. NEXT t
  23. PRINT m"RPM",,m/60 "Hz"
  24. 'SEE HOW MANY TIME$ HAVE ZEROES ON END
  25. 'REM DID WE USE ALL OF THE MINUTE?
  26. 'ANY BLANK LINES ABOVE ALTERS TIMING
  27.